home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
twm-listing 7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
475b
|
27 lines
0 REM BOX-DEMO 1
5 :
10 SYS 32168
20 :
30 REM TEXTE NACH B$(), FARBEN NACH F()
35 REM ANZAHL NACH BN
40 BN=10 :DIM B$(BN),F(BN)
50 FOR B=1 TO BN
60 B$(B)="BOX"+STR$(B)
70 F(B)=(F(B-1)+1)AND15 :IF F(B)<2 THEN F(B)=2
80 NEXT
90 :
100 (null) :Z=0 :S=0
110 FOR B=1 TO BN
120 S2=S+LEN(B$(B))+1
130 IF S2>39 THEN Z=Z+3 :S=0 :GOTO 120
140 (null) Z+1,S+1,F(B),B$(B)
150 (null) F(B),Z,S,Z+2,S2
160 (null)B,Z,S,Z+2,S2,F(B)+128
170 S=S2+1
180 NEXT B
190 :
200 B=5
210 (null) B
220 :
230 (null) 10,1,"SIE HABEN NR."+STR$(B)+" AUSGEWAEHLT !"